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D COMPLEX*16 Absolute value 


3; Detailed Current Edit History 
(babs = - ." COMPLEX*16 Absolute Value 


16-SEP-1984 01:06:19 VAX/VMS Macro V04-00 
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MTHSCDABS D COMPLEX*16 Absolute value Ms a Lot Bs 91:08:19 ech Macro V04-00 Page 1 
1-002 6-SEP=1984 11:20:47 (CMTHRTL.SRCIMTHCDABS.MAR; 1 (1) 
-TITLE MTHSCDABS D COMPLEX*16 serie te value 
~IDENT /1-002/ ; File: MTHCDABS.MAR Edit: RNH1002 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE a FURNISHED UNDER A LICENSE AND MAY BE USED AND serine 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE Sg lth NOTICE. THIS SOFTWA 


® 
& 
® 
® 
® 
® 
& 
® 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. ® 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. . 
ad 
x 
*® 
® 
® 
® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: MATH LIBRARY 


*ABSTRA CT: 
Return the absolute value of the D COMPLEX*16 value. 


VERSION: 1 
HISTORY: 


AUTHOR: 
Steven B. Lionel, 20-July-1979 


MODIFIED BY: 
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MTHSCOABS 
1-008 


EX#16 Ab 
; Deta 
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; 


olute value 
led Current to History 


-SBTTL HISTORY 


; Edit History 


AX/VMS Macro V04-00 


"Br8 “SEP- p-1 984 i 98: 3 ERTHRIL SRCJMTHCDABS .MAR; 1 


; Detailed Curre 


1-001 = Adapted from MTHS$CABS version 1-002. 
1-002 = Changed shared external references to G* RNH 25= Sep-81 


nt Edit History 


SBL_20-July-1979 


Page (3) 


K 15 
MTHSCDABS D COMPLEX*16 Absolute value 16-SEP-1984 01:06:19 VAX/VMS Macro Vv04-00 Pa 
1-002 DECLARATIONS ae 198543 UMTHRTL . SREIMTHCDABS .MARS 1 = 3) 
4 23 -SBTTL DECLARATIONS 
8 61 ; 
62 ; INCLUDE FILES: 
00 86 3 
00 64 
8 e2 : EXTERNAL SYMBOLS 
900068 DSABL GBL 
000 9 -EXTRN MTHSDSQRT_RS 
$00 
0 “1 3 
000 ie 3; MACROS: 
0000 73: 
8000 74 
000 tS 3 
0000 6 ; PSECT DECLARATIONS: 
00000009 7 -PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 
0000 78 
0000 79 ; 
0000 80 ; EQUATED SYMBOLS: 
0000 81; 
0000 Hf 
0000 83 ; 
0000 84 ; OWN STORAGE: 
0000 85 ; NONE 
$000 Ha SBTTL MTHSCDABS D COMPLEX*16 Absol Val 
: ~ * solute Value 
0000 88 
0000 89 ;++ 
8608 a 3; FUNCTIONAL DESCRIPTION: 
0000 38 : MTHSCDABS computes the absolute value of a COMPLEX number (r, i) 
0000 93 ; as follows: 
0000 94 ; 
444 3 : result = ABS(MAX*SQRT‘ (MIN/MAX) **#2 + 1)) 
0000 97 ; CALLING SEQUENCE: 
0000 98 ; result.wdc.v = MTHS$CDABS (arg.rdc.r) 
0000 99 ; 
0000 100; 
464 + 9 ; INPUT PARAMETERS: 
00000004 0000 198 ; arg = 4 ; The address of the D COMPLEX*16 argument. 
000 198 3; IMPLICIT INPUTS: 
00 196 : NONE 
00 107 ; 
Bp 198 ; OUTPUT PARAMETERS: 
00 109 Py | 
0000 110; 
00 111 ; IMPLICIT OUTPUTS: 
oh 11 5 NONE | 
000 114 ; COMPLETION CODES: | 
os - ies NONE 
| 
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Absolute Value 
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FUNCTION VALUE: 


v04-00 
H 


acro 
«SRC JMTHCDABS .MAR; 1 


D Floating absolute value is returned in RO-R1. 


Invalid Operand if r or i are undefined (-0.0). 
Floating overflow if r and i are both Large. 


.ENTRY MTHSCDABS, 
MTHSFLAG_JACKET 


G*MTHSSJACKET_HND, (FP) 


imwtutasiwicieiebuiuabababead 
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3 at this point RO-R1 contains MIN (the 
3 R2-R3 contains MAX (the Larger of iri 


R2, -(SP) 
G*MTHSDSQRT_RS 
(SP), RO 


4,R5> 
resignal 


set handler address to jacket 
handler 


; Get address of argument 

; Get real part 

; Get imaginary part 

; Get exponent of real part 
; Is imaginary part bigger? 
; Yes, that is correct 

; Swap values 


eneter iri and tii), and 


ilide 


divisor zero? 
18S. answer is zero 
0-R1 


= MIN/MAX 
RO-R1 = (MIN/MAX) #*#2 

= (MIN/MAX) **2 + 1 
Save maximum 
RO=-R1 = SQRT( (MIN/MAX) #*#2+1) 
RO=R1 = MAX*SQRT( (MIN/MAX) **2+41) 
Floating overflow could happen 
RO-R1 = ABS(,... 
with result in RO-R1 


; answer is zero 
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MTHSCDABS D COMPLEX*16 Absolute value os at 9 91:96:19 AX/VMS Macro V04-00 
Symbol table 6-SEP=1984 11:20:47 CMTHRTL.SRCJMTHCDABS.MAR; 1 


ARG = 00000004 
MIHSSJACKET_HND teeenene 
MTHSCDABS 00000000 RG 
MTHSDSQRT_RS eteerere xX 
REALLO 00000028 R 


Ooooeoo 
-—O—— 


The working set Limit was 900 pages. : 

2685 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 6 non-local and 0 local symbols. 
222 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

1 page of virtual memory was used to define 1 macro. 


00000047 R | 
twomwmenens cee mes eoeeces | 
! Psect synopsis ! 
¢ewcoceceesceceesa + | 
PSECT name Allocation PSECT No. Attributes 
— as , 00000000 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE QOO0004A ( To.r Gt € Fes PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
$ momen eeecaoaa Eom nwm ona mame oa 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 33 00:00:00.07 00:00:00.93 
Command processing 130 00:00:00.65 00:00:04.97 
ass 87 00:00:00.66 00:00:05.19 
Symbol table sort 0 00:00:00.00 00:00:00.00 
Pass 2 4 09:00:00.47 Be Re 1 Og 
Symbol table output 00:00:00.02 8:09:00 .15 
Psect synopsis output OF 8008 fo 00:00:00.0 
Cross-reference output 0 00:00:00.00 00:00:00.00 | 
Assembler run totals 299 00:00:01.88 00:00:13.30 


+ 
! Macro Library statistics : 
foo mmr eee e re Oe e e 


Macro Library name Macros defined 
“S255SDUA28:(SYSLIBISTARLET.MLB:2 0 it 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHCDABS/OBJ=OBJ$:MTHCDABS MSRCS:MTHJACKET/UPDATE=(ENHS:MTHJACKET) #+MSRC 
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